home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / -smiling sprite (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  767 b   |  35 lines
  1. 2 print"[147]"
  2. 4 poke 53280,70
  3. 5 poke 53281,1
  4. 10 poke 53269,255
  5. 20 poke 2040,192:poke 2041,192:poke 2042,192:poke 2043,192:poke 2044,192
  6. 30 poke 2045,192:poke 2046,192:poke 2047,192
  7. 40 for a=53248 to 53263:poke a,100:next:poke 53271,255:poke 53277,255
  8. 50 for n=0to62:read o:poke 12288+n,o:next
  9. 60 poke 53287,0:poke 53288,15:poke 53289,12:poke 53289,14:poke 53290,13
  10. 70 poke 53291,5:poke 53292,2:poke 53293,10:poke 53294,7
  11. 75 let b=30
  12. 80 for a=53248 to 53262 step 2:poke a,b:let b=b+30:next
  13. 90 print"[154]":end
  14. 100 data 0,0,0
  15. 110 data 0,126,0
  16. 120 data 1,129,128
  17. 130 data 2,0,64
  18. 140 data 12,0,48
  19. 150 data 8,0,16
  20. 160 data 19,197,200
  21. 170 data 16,0,8
  22. 180 data 32,195,4
  23. 190 data 32,195,4
  24. 200 data 32,24,4
  25. 210 data 32,24,4
  26. 220 data 32,24,4
  27. 230 data 16,126,8
  28. 240 data 17,60,136
  29. 250 data 8,129,16
  30. 260 data 8,126,16
  31. 270 data 4,0,32
  32. 280 data 2,0,64
  33. 290 data 1,129,128
  34. 300 data 0,126,0
  35.